Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Ӧóı⡣
        status.Text = TextBox1.Text
        dateLabel.Text = Today.ToShortDateString
    End Sub
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        ' ѡʾĹܣԶѡ״̬ʾĸ
        GroupBox1.Enabled = CheckBox1.Checked
        ' ݴϵĸѡ״̬ Visible 
        Me.status.Visible = CheckBox1.Checked
        Me.dateLabel.Visible = CheckBox1.Checked
        Me.progressBarStrip.Visible = CheckBox1.Checked
        ' üʱԽֹͣǰ
        If ProgressBarCheckBox.Checked And CheckBox1.Checked Then
            Timer1.Enabled = True
        ElseIf Not CheckBox1.Checked Then
            Timer1.Enabled = False
        End If
    End Sub
    Private Sub ProgressBarCheckBox_CheckChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBarCheckBox.CheckedChanged
        ' ״̬ʾ progressbarüʱ
        Timer1.Enabled = ProgressBarCheckBox.Checked
    End Sub    
    Private Sub DateCheckBox_CheckChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateCheckBox.CheckedChanged
        Me.dateLabel.Visible = DateCheckBox.Checked
    End Sub
    Private Sub TextCheckBox_CheckChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextCheckBox.CheckedChanged
        status.Visible = TextCheckBox.Checked
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        ' ״̬ı
        status.Text = TextBox1.Text
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.progressBarStrip.Value < progressBarStrip.Maximum Then
            progressBarStrip.Increment(progressBarStrip.Step)
        Else
            progressBarStrip.Value = progressBarStrip.Minimum
        End If
        'ˢ״̬
        Me.StatusStrip1.Invalidate()
    End Sub
    Private Sub fileStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fileStrip.Click
        Me.Close()
    End Sub
